home *** CD-ROM | disk | FTP | other *** search
/ BigMax 17 / BigMax nº 17.iso / APLICAT / PCM105CD / SECURE / DATA.Z / Sample.bis < prev    next >
Text File  |  1996-12-29  |  2KB  |  108 lines
  1. start {
  2.     Set framefile=default
  3.     Set reference=topleft
  4.     menu item=1 caption="Stop sound" proc=stop_sound
  5.     menu item=2 caption="Access BackWeb site" proc=yellow
  6.     menu item=3 caption="Open Me!" proc=summon_notes
  7.       
  8.     newSprite proc=sound
  9.     call float_up()
  10. }
  11.  
  12. sound {
  13.     repeat {
  14.         Play file="sonar1.wav"
  15.         pause for 2 seconds
  16.     } until(FlagIsSet("end_sound"))
  17. }
  18.  
  19. summon_notes {
  20.     menu item=3 caption="" proc=nothing
  21.     call notes()
  22.     End
  23. }
  24.  
  25.  
  26. float_up {
  27.     OnClick {
  28.         call summon_notes()
  29.     }
  30.     Show sequence=0 at (0,1000)
  31.     Animate toPixelOffset (0,-80) in 30 frames slowend=5
  32.     Animate in 120 frames slowstart=10 slowend=9
  33.     Animate    toPixelOffset(400,0) in 30 frames slowstart=5 slowend=5
  34.     Animate to (400,1000) in 60 frames slowstart=9 
  35.     End all
  36. }
  37.  
  38.  
  39. notes {
  40.     OnClick {
  41.         rect (180,137,231,163) does {
  42.             call note2() 
  43.             # call sonar()
  44.         }
  45.     }
  46.     
  47.     set reference=topleft
  48.     Show sequence=1 at (520,80)
  49.     NewSprite proc=sonar atpixeloffset (-150,190)
  50.     Pause forever
  51.     
  52. }
  53.  
  54.  
  55. note2 {
  56.     OnClick {
  57.         rect (180,137,231,163) does {
  58.             call note3()
  59.         }
  60.     }
  61.     
  62.     Show sequence=2 at (520,80)
  63.     pause forever
  64. }
  65.  
  66.  
  67. note3 {
  68.     OnClick {
  69.         rect (13,63,214,105) does {
  70.             call stop_sound()
  71.         }
  72.     }
  73.     Show sequence=3 at (520,80)
  74.     pause forever
  75.  
  76. }
  77.  
  78. red {
  79.     AccessWeb url="file://sub.htm"
  80.     End all
  81. }
  82.  
  83. yellow {
  84.     AccessWeb url="http://www.backweb.com"
  85.     End all
  86. }
  87.  
  88. sonar{    
  89.     menu item=1 caption="Stop sound" proc=stop_sound
  90.     menu item=2 caption="Access BackWeb site" proc=yellow
  91.     OnClick 
  92.        {
  93.           rect (173,21,188,37) does { call red() }
  94.           rect (239,34,254,49) does { call yellow() }
  95.           rect (52,167,91,188) does { End all }
  96.        }
  97.     
  98.     Show sequence=4 Pause forever
  99.     
  100. }
  101.  
  102.  
  103. stop_sound{ 
  104.     SetFlag "end_sound"
  105.     menu item=1 caption="Stop sound" proc=nothing
  106. }
  107.  
  108.